home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / freetk.arc / GEAR.TK < prev    next >
Encoding:
Text File  |  1987-06-16  |  2.3 KB  |  266 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.   ****  CHORDAL TOOTH THICKNESS  ****
  10. #3
  11. :n
  12. n
  13. :v
  14. 25
  15. :s
  16. i
  17. :c
  18. Number of teeth
  19. #4
  20. :n
  21. pn
  22. :s
  23. b
  24. :u
  25. 1/in
  26. :d
  27. 1/in
  28. :c
  29. Normal diametral pitch
  30. #5
  31. :n
  32. npa
  33. :s
  34. b
  35. :u
  36. rad
  37. :d
  38. deg
  39. :c
  40. Normal pressure angle
  41. #6
  42. :n
  43. ha
  44. :v
  45. .40142572796
  46. :s
  47. i
  48. :u
  49. rad
  50. :d
  51. deg
  52. :c
  53. Nominal helix angle
  54. #7
  55. :n
  56. od
  57. :v
  58. 2.75
  59. :s
  60. i
  61. :u
  62. in
  63. :d
  64. in
  65. :c
  66. Design outside diameter
  67. #8
  68. :n
  69. hc
  70. :v
  71. .09
  72. :s
  73. i
  74. :u
  75. in
  76. :d
  77. in
  78. :c
  79. Chordal height
  80. #9
  81. :n
  82. ntc
  83. :v
  84. .1172
  85. :s
  86. i
  87. :u
  88. in
  89. :d
  90. in
  91. :c
  92. Chordal tooth thickness
  93. #10
  94. :n
  95. pd
  96. :s
  97. b
  98. :u
  99. in
  100. :d
  101. in
  102. :c
  103. Ref pitch diameter
  104. #11
  105. :n
  106. pt
  107. :v
  108. 10
  109. :s
  110. i
  111. :u
  112. 1/in
  113. :d
  114. 1/in
  115. :c
  116. Transverse diametral pitch
  117. #12
  118. :n
  119. tpa
  120. :v
  121. .3926990817
  122. :s
  123. i
  124. :u
  125. rad
  126. :d
  127. deg
  128. :c
  129. Transverse pressure angle
  130. #14
  131. :n
  132. ntt
  133. :s
  134. b
  135. :u
  136. in
  137. :d
  138. in
  139. :c
  140. Normal tooth thickness at ref pd
  141. #15
  142. :n
  143. ttt
  144. :s
  145. b
  146. :u
  147. in
  148. :d
  149. in
  150. :c
  151. Transverse tooth thickness at ref pd
  152. #18
  153. :n
  154.  
  155. :s
  156. b
  157. :c
  158. (Type  =R  to see the Rule Sheet)
  159. =u
  160. #1
  161. :f
  162. rad
  163. :t
  164. deg
  165. :m
  166. 57.2957795129
  167. #2
  168. :f
  169. deg
  170. :t
  171. min
  172. :m
  173. 60
  174. #3
  175. :f
  176. min
  177. :t
  178. sec
  179. :m
  180. 60
  181. #4
  182. :f
  183. in
  184. :t
  185. mm
  186. :m
  187. 25.4
  188. #5
  189. :f
  190. in
  191. :t
  192. cm
  193. :m
  194. 2.54
  195. #6
  196. :f
  197. in
  198. :t
  199. m
  200. :m
  201. .0254
  202. #7
  203. :f
  204. ft
  205. :t
  206. in
  207. :m
  208. 12
  209. =r
  210. #1
  211. :r
  212. pt=pn*cos(ha)                       "trans pitch
  213. #2
  214. :r
  215. tpa=atan(tan(npa)/cos(ha))          "trans pressure angle
  216. #3
  217. :r
  218. pd=n/pt                             "ref pitch diameter
  219. #4
  220. :r
  221. rc+hc=od/2                          "radius on tooth at chordal height
  222. #5
  223. :r
  224. ha_c=atan((2*rc/pd)*tan(ha))        "helix angle at chordal height
  225. #6
  226. :r
  227. ttc=ntc/cos(ha_c)                   "trans tooth thickness at chordal height
  228. #7
  229. :r
  230. ac=atan(ttc/(2*rc))                 "| intermediate values
  231. #8
  232. :r
  233. ab=acos(pd*cos(tpa)*sin(ac)/ttc)    "|
  234. #9
  235. :r
  236. ttt=pd*(ac+tan(ab)-ab-tan(tpa)+tpa) "trans tooth thickness at ref pd
  237. #10
  238. :r
  239. ntt=ttt*cos(ha)                     "normal tooth thickness at ref pd
  240. #12
  241. :r
  242. " Universal Technical Systems has been creating and marketing highly
  243. :s
  244. C
  245. #13
  246. :r
  247. " sophisticated gear design and manufacturing software using the expert
  248. :s
  249. C
  250. #14
  251. :r
  252. " systems approach for over a decade.  Some of this software is now
  253. :s
  254. C
  255. #15
  256. :r
  257. " available in models for the full TK Solver Plus.  Contact UTS for
  258. :s
  259. C
  260. #16
  261. :r
  262. " further information on our complete line of gear software.
  263. :s
  264. C
  265. %Tv,f,0,5,0,1,0
  266.